\(\int \frac {1}{(\sqrt {3}-x) \sqrt [3]{1+x^2}} \, dx\) [713]

Optimal result

Integrand size = 21, antiderivative size = 101 \[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\frac {\arctan \left (\frac {1}{\sqrt {3}}+\frac {2^{2/3} \left (\sqrt {3}+x\right )}{3 \sqrt [3]{1+x^2}}\right )}{2^{2/3} \sqrt {3}}+\frac {\log \left (\sqrt {3}-x\right )}{2\ 2^{2/3}}-\frac {\log \left (\sqrt {3}+x-\sqrt [3]{2} \sqrt {3} \sqrt [3]{1+x^2}\right )}{2\ 2^{2/3}} \]

[Out]

1/4*ln(-x+3^(1/2))*2^(1/3)-1/4*ln(x+3^(1/2)-2^(1/3)*(x^2+1)^(1/3)*3^(1/2))*2^(1/3)+1/6*arctan(1/3*3^(1/2)+1/3*
2^(2/3)*(x+3^(1/2))/(x^2+1)^(1/3))*2^(1/3)*3^(1/2)

Rubi [A] (verified)

Time = 0.01 (sec) , antiderivative size = 101, normalized size of antiderivative = 1.00, number of steps used = 1, number of rules used = 1, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.048, Rules used = {765} \[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\frac {\arctan \left (\frac {2^{2/3} \left (x+\sqrt {3}\right )}{3 \sqrt [3]{x^2+1}}+\frac {1}{\sqrt {3}}\right )}{2^{2/3} \sqrt {3}}-\frac {\log \left (-\sqrt [3]{2} \sqrt {3} \sqrt [3]{x^2+1}+x+\sqrt {3}\right )}{2\ 2^{2/3}}+\frac {\log \left (\sqrt {3}-x\right )}{2\ 2^{2/3}} \]

[In]

Int[1/((Sqrt[3] - x)*(1 + x^2)^(1/3)),x]

[Out]

ArcTan[1/Sqrt[3] + (2^(2/3)*(Sqrt[3] + x))/(3*(1 + x^2)^(1/3))]/(2^(2/3)*Sqrt[3]) + Log[Sqrt[3] - x]/(2*2^(2/3
)) - Log[Sqrt[3] + x - 2^(1/3)*Sqrt[3]*(1 + x^2)^(1/3)]/(2*2^(2/3))

Rule 765

Int[1/(((d_) + (e_.)*(x_))*((a_) + (c_.)*(x_)^2)^(1/3)), x_Symbol] :> With[{q = Rt[6*c^2*(e^2/d^2), 3]}, Simp[
(-Sqrt[3])*c*e*(ArcTan[1/Sqrt[3] + 2*c*((d - e*x)/(Sqrt[3]*d*q*(a + c*x^2)^(1/3)))]/(d^2*q^2)), x] + (-Simp[3*
c*e*(Log[d + e*x]/(2*d^2*q^2)), x] + Simp[3*c*e*(Log[c*d - c*e*x - d*q*(a + c*x^2)^(1/3)]/(2*d^2*q^2)), x])] /
; FreeQ[{a, c, d, e}, x] && EqQ[c*d^2 - 3*a*e^2, 0]

Rubi steps \begin{align*} \text {integral}& = \frac {\tan ^{-1}\left (\frac {1}{\sqrt {3}}+\frac {2^{2/3} \left (\sqrt {3}+x\right )}{3 \sqrt [3]{1+x^2}}\right )}{2^{2/3} \sqrt {3}}+\frac {\log \left (\sqrt {3}-x\right )}{2\ 2^{2/3}}-\frac {\log \left (\sqrt {3}+x-\sqrt [3]{2} \sqrt {3} \sqrt [3]{1+x^2}\right )}{2\ 2^{2/3}} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.36 (sec) , antiderivative size = 168, normalized size of antiderivative = 1.66 \[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\frac {2 \sqrt {3} \arctan \left (\frac {2^{2/3} x+\sqrt {3} \left (2^{2/3}+\sqrt [3]{1+x^2}\right )}{3 \sqrt [3]{1+x^2}}\right )-2 \log \left (3\ 2^{2/3}+2^{2/3} \sqrt {3} x-6 \sqrt [3]{1+x^2}\right )+\log \left (\sqrt [3]{2} x^2+\sqrt [3]{2} \sqrt {3} x \left (2+\sqrt [3]{2} \sqrt [3]{1+x^2}\right )+3 \left (\sqrt [3]{2}+2^{2/3} \sqrt [3]{1+x^2}+2 \left (1+x^2\right )^{2/3}\right )\right )}{6\ 2^{2/3}} \]

[In]

Integrate[1/((Sqrt[3] - x)*(1 + x^2)^(1/3)),x]

[Out]

(2*Sqrt[3]*ArcTan[(2^(2/3)*x + Sqrt[3]*(2^(2/3) + (1 + x^2)^(1/3)))/(3*(1 + x^2)^(1/3))] - 2*Log[3*2^(2/3) + 2
^(2/3)*Sqrt[3]*x - 6*(1 + x^2)^(1/3)] + Log[2^(1/3)*x^2 + 2^(1/3)*Sqrt[3]*x*(2 + 2^(1/3)*(1 + x^2)^(1/3)) + 3*
(2^(1/3) + 2^(2/3)*(1 + x^2)^(1/3) + 2*(1 + x^2)^(2/3))])/(6*2^(2/3))

Maple [C] (warning: unable to verify)

Result contains higher order function than in optimal. Order 9 vs. order 3.

Time = 23.36 (sec) , antiderivative size = 2422, normalized size of antiderivative = 23.98

method	result	size
trager	\(\text {Expression too large to display}\)	\(2422\)

[In]

int(1/(x^2+1)^(1/3)/(-x+3^(1/2)),x,method=_RETURNVERBOSE)

[Out]

1/18*3^(1/2)*(6*ln((12*RootOf(_Z^3-6*3^(1/2))^2*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36
*_Z^2)^2*x^3+10*RootOf(_Z^3-6*3^(1/2))^3*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*
x^3-144*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*
(x^2+1)^(2/3)*x+540*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf(_Z^3-6*3^(1/2)
)*(x^2+1)^(1/3)*x+90*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^3-
6*3^(1/2))*(x^2+1)^(1/3)*x^2-54*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)*x-9*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x
^2+1)^(1/3)*x^2+108*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)^2*RootOf(_Z^3-6*3^(1/
2))^2*x+90*RootOf(_Z^3-6*3^(1/2))^3*x*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)-432
*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(2/3)+1
8*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*x^3+15*RootOf(_Z^3-6*3^(1/2))*3
^(1/2)*x^3-270*(x^2+1)^(2/3)*x+270*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2
)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)-27*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)+162*RootOf(RootOf(_Z^
3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*x+378*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^
3-6*3^(1/2))*_Z+36*_Z^2)*x^2+135*RootOf(_Z^3-6*3^(1/2))*3^(1/2)*x+315*RootOf(_Z^3-6*3^(1/2))*x^2-270*3^(1/2)*(
x^2+1)^(2/3)+378*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)+315*RootOf(_Z^3-6*3^(1/2
)))/(3^(1/2)*x-3)^3)*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)+ln((12*RootOf(_Z^3-6
*3^(1/2))^2*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)^2*x^3+10*RootOf(_Z^3-6*3^(1/2
))^3*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*x^3-144*RootOf(RootOf(_Z^3-6*3^(1/2)
)^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(2/3)*x+540*RootOf(RootOf(_Z
^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)*x+90*RootOf(RootOf(_
Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)*x^2-54*Root
Of(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)*x-9*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)*x^2+108*RootOf(RootOf(_Z
^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)^2*RootOf(_Z^3-6*3^(1/2))^2*x+90*RootOf(_Z^3-6*3^(1/2))^3*
x*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)-432*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*R
ootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(2/3)+18*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*
RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*x^3+15*RootOf(_Z^3-6*3^(1/2))*3^(1/2)*x^3-270*(x^2+1)^(2/3)*x+270*R
ootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/
3)-27*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)+162*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/
2))*_Z+36*_Z^2)*3^(1/2)*x+378*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*x^2+135*Roo
tOf(_Z^3-6*3^(1/2))*3^(1/2)*x+315*RootOf(_Z^3-6*3^(1/2))*x^2-270*3^(1/2)*(x^2+1)^(2/3)+378*RootOf(RootOf(_Z^3-
6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)+315*RootOf(_Z^3-6*3^(1/2)))/(3^(1/2)*x-3)^3)*RootOf(_Z^3-6*3
^(1/2))-RootOf(_Z^3-6*3^(1/2))*ln((48*RootOf(_Z^3-6*3^(1/2))^2*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6
*3^(1/2))*_Z+36*_Z^2)^2*x^3+10*RootOf(_Z^3-6*3^(1/2))^3*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2
))*_Z+36*_Z^2)*x^3+144*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*RootOf(_Z^
3-6*3^(1/2))^2*(x^2+1)^(2/3)*x-324*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf
(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)*x-54*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/
2)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)*x^2+90*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)*x+15*3^(1/2)*RootOf(_Z^3
-6*3^(1/2))^2*(x^2+1)^(1/3)*x^2+432*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)^2*Roo
tOf(_Z^3-6*3^(1/2))^2*x+90*RootOf(_Z^3-6*3^(1/2))^3*x*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))
*_Z+36*_Z^2)+432*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*RootOf(_Z^3-6*3^(1/2))^2
*(x^2+1)^(2/3)-24*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*x^3-5*RootOf(_Z
^3-6*3^(1/2))*3^(1/2)*x^3+162*(x^2+1)^(2/3)*x-162*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+
36*_Z^2)*3^(1/2)*RootOf(_Z^3-6*3^(1/2))*(x^2+1)^(1/3)+45*3^(1/2)*RootOf(_Z^3-6*3^(1/2))^2*(x^2+1)^(1/3)-216*Ro
otOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*3^(1/2)*x-1512*RootOf(RootOf(_Z^3-6*3^(1/2)
)^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)*x^2-45*RootOf(_Z^3-6*3^(1/2))*3^(1/2)*x-315*RootOf(_Z^3-6*3^(1/2))*x^
2+162*3^(1/2)*(x^2+1)^(2/3)-1512*RootOf(RootOf(_Z^3-6*3^(1/2))^2+6*RootOf(_Z^3-6*3^(1/2))*_Z+36*_Z^2)-315*Root
Of(_Z^3-6*3^(1/2)))/(3^(1/2)*x-3)^3))

Fricas [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 335 vs. \(2 (72) = 144\).

Time = 2.87 (sec) , antiderivative size = 335, normalized size of antiderivative = 3.32 \[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\frac {1}{6} \cdot 4^{\frac {1}{6}} \sqrt {3} \left (-1\right )^{\frac {1}{3}} \arctan \left (\frac {4^{\frac {1}{6}} \sqrt {3} {\left (6 \cdot 4^{\frac {2}{3}} {\left (8 \, \sqrt {3} \left (-1\right )^{\frac {2}{3}} x^{3} - \left (-1\right )^{\frac {2}{3}} {\left (x^{4} - 18 \, x^{2} - 27\right )}\right )} {\left (x^{2} + 1\right )}^{\frac {2}{3}} - 4^{\frac {1}{3}} {\left (x^{6} + 99 \, x^{4} + 243 \, x^{2} - 12 \, \sqrt {3} {\left (x^{5} + 10 \, x^{3} + 9 \, x\right )} + 81\right )} - 4 \, {\left (x^{2} + 1\right )}^{\frac {1}{3}} {\left (\sqrt {3} \left (-1\right )^{\frac {1}{3}} {\left (x^{5} - 42 \, x^{3} - 27 \, x\right )} - 3 \, \left (-1\right )^{\frac {1}{3}} {\left (7 \, x^{4} + 18 \, x^{2} + 27\right )}\right )}\right )}}{6 \, {\left (x^{6} - 225 \, x^{4} - 405 \, x^{2} - 243\right )}}\right ) - \frac {1}{24} \cdot 4^{\frac {2}{3}} \left (-1\right )^{\frac {1}{3}} \log \left (-\frac {3 \cdot 4^{\frac {2}{3}} {\left (x^{2} + 1\right )}^{\frac {2}{3}} {\left (2 \, \sqrt {3} \left (-1\right )^{\frac {1}{3}} x + \left (-1\right )^{\frac {1}{3}} {\left (x^{2} + 3\right )}\right )} - 4^{\frac {1}{3}} {\left (4 \, \sqrt {3} \left (-1\right )^{\frac {2}{3}} {\left (x^{3} + 3 \, x\right )} + \left (-1\right )^{\frac {2}{3}} {\left (x^{4} + 18 \, x^{2} + 9\right )}\right )} - 2 \, {\left (9 \, x^{2} + \sqrt {3} {\left (x^{3} + 9 \, x\right )} + 9\right )} {\left (x^{2} + 1\right )}^{\frac {1}{3}}}{x^{4} - 6 \, x^{2} + 9}\right ) + \frac {1}{12} \cdot 4^{\frac {2}{3}} \left (-1\right )^{\frac {1}{3}} \log \left (-\frac {4^{\frac {1}{3}} {\left (x^{2} + 2 \, \sqrt {3} x + 3\right )} + 2 \, {\left (x^{2} + 1\right )}^{\frac {1}{3}} {\left (\sqrt {3} \left (-1\right )^{\frac {1}{3}} x + 3 \, \left (-1\right )^{\frac {1}{3}}\right )}}{x^{2} - 3}\right ) \]

[In]

integrate(1/(x^2+1)^(1/3)/(-x+3^(1/2)),x, algorithm="fricas")

[Out]

1/6*4^(1/6)*sqrt(3)*(-1)^(1/3)*arctan(1/6*4^(1/6)*sqrt(3)*(6*4^(2/3)*(8*sqrt(3)*(-1)^(2/3)*x^3 - (-1)^(2/3)*(x
^4 - 18*x^2 - 27))*(x^2 + 1)^(2/3) - 4^(1/3)*(x^6 + 99*x^4 + 243*x^2 - 12*sqrt(3)*(x^5 + 10*x^3 + 9*x) + 81) -
4*(x^2 + 1)^(1/3)*(sqrt(3)*(-1)^(1/3)*(x^5 - 42*x^3 - 27*x) - 3*(-1)^(1/3)*(7*x^4 + 18*x^2 + 27)))/(x^6 - 225
*x^4 - 405*x^2 - 243)) - 1/24*4^(2/3)*(-1)^(1/3)*log(-(3*4^(2/3)*(x^2 + 1)^(2/3)*(2*sqrt(3)*(-1)^(1/3)*x + (-1
)^(1/3)*(x^2 + 3)) - 4^(1/3)*(4*sqrt(3)*(-1)^(2/3)*(x^3 + 3*x) + (-1)^(2/3)*(x^4 + 18*x^2 + 9)) - 2*(9*x^2 + s
qrt(3)*(x^3 + 9*x) + 9)*(x^2 + 1)^(1/3))/(x^4 - 6*x^2 + 9)) + 1/12*4^(2/3)*(-1)^(1/3)*log(-(4^(1/3)*(x^2 + 2*s
qrt(3)*x + 3) + 2*(x^2 + 1)^(1/3)*(sqrt(3)*(-1)^(1/3)*x + 3*(-1)^(1/3)))/(x^2 - 3))

Sympy [F]

\[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=- \int \frac {1}{x \sqrt [3]{x^{2} + 1} - \sqrt {3} \sqrt [3]{x^{2} + 1}}\, dx \]

[In]

integrate(1/(x**2+1)**(1/3)/(-x+3**(1/2)),x)

[Out]

-Integral(1/(x*(x**2 + 1)**(1/3) - sqrt(3)*(x**2 + 1)**(1/3)), x)

Maxima [F]

\[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\int { -\frac {1}{{\left (x^{2} + 1\right )}^{\frac {1}{3}} {\left (x - \sqrt {3}\right )}} \,d x } \]

[In]

integrate(1/(x^2+1)^(1/3)/(-x+3^(1/2)),x, algorithm="maxima")

[Out]

-integrate(1/((x^2 + 1)^(1/3)*(x - sqrt(3))), x)

Giac [F]

\[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=\int { -\frac {1}{{\left (x^{2} + 1\right )}^{\frac {1}{3}} {\left (x - \sqrt {3}\right )}} \,d x } \]

[In]

integrate(1/(x^2+1)^(1/3)/(-x+3^(1/2)),x, algorithm="giac")

[Out]

integrate(-1/((x^2 + 1)^(1/3)*(x - sqrt(3))), x)

Mupad [F(-1)]

Timed out. \[ \int \frac {1}{\left (\sqrt {3}-x\right ) \sqrt [3]{1+x^2}} \, dx=-\int \frac {1}{{\left (x^2+1\right )}^{1/3}\,\left (x-\sqrt {3}\right )} \,d x \]

[In]

int(-1/((x^2 + 1)^(1/3)*(x - 3^(1/2))),x)

[Out]

-int(1/((x^2 + 1)^(1/3)*(x - 3^(1/2))), x)